home *** CD-ROM | disk | FTP | other *** search
/ How Would You Survive? / How Would You Survive (1995)(Grolier)[Mac-PC].iso / pc / vikingw.dir / 01646_Script_Your Place < prev    next >
Text File  |  1995-09-12  |  2KB  |  68 lines
  1. global gbeenclicked, gQuest
  2.  
  3. on VYourPlaceRollovers
  4.   set gbeenclicked = 0
  5.   if (not(CheckClickedStatus(gQuest))) then
  6.     if rollover(10) then
  7.       repeat while rollover(10)
  8.         VikingCursor
  9.         if (the mousedown) then
  10.           set gbeenclicked = 1
  11.         else
  12.           --the mouse is up
  13.           if gbeenclicked = 1 then
  14.             repeat while gbeenclicked = 1
  15.               AnimateLoopFast 10, 825, 2, "SV150500.AIF", 2
  16.             end repeat
  17.           end if
  18.         end if
  19.       end repeat
  20.     else
  21.       if rollover(27) then
  22.         ArrowCursor
  23.         repeat while rollover(27)
  24.           set the locH of sprite 28 to 467
  25.           set the locV of sprite 28 to 93
  26.           updatestage
  27.         end repeat
  28.         set the locH of sprite 28 to 967
  29.         updatestage
  30.       else
  31.         if rollover(6) then
  32.           ArrowCursor
  33.           repeat while rollover(6)
  34.             set the locH of sprite 7 to 361
  35.             set the locV of sprite 7 to 205
  36.             updatestage
  37.           end repeat
  38.           set the locH of sprite 7 to 961
  39.           updatestage
  40.         else
  41.           if rollover(8) then
  42.             ArrowCursor
  43.             repeat while rollover(8)
  44.               set the locH of sprite 9 to 553
  45.               set the locV of sprite 9 to 249
  46.               updatestage
  47.             end repeat
  48.             set the locH of sprite 9 to 999
  49.             updatestage
  50.           else
  51.             if rollover(41) then
  52.               HandCursor
  53.             else
  54.               if rollover(42) then
  55.                 HandCursor
  56.               else
  57.                 ArrowCursor
  58.               end if
  59.             end if
  60.           end if
  61.         end if
  62.       end if
  63.     end if
  64.   end if
  65.   RandomQuestion(gQuest)
  66. end
  67.  
  68.